home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / merge.lqr / MERGEP.BAS < prev    next >
BASIC Source File  |  1985-06-03  |  896b  |  24 lines
  1. 1 REM save"mergep",a
  2. 10 REM print merger
  3. 20 PRINT "Print Merger.. by Keith Peterson "
  4. 30 INPUT"text file to read";TF$
  5. 40 INPUT"data file to read";DF$
  6. 50 OPEN DF$ FOR INPUT AS #2
  7. 55 IF LD THEN PRINT"End of data: "T" pages printed":SYSTEM
  8. 60 OPEN TF$ FOR INPUT AS #1
  9. 70 GOSUB 1000 : IF LT THEN T=T+1:GOSUB 1100 : CLOSE #1: GOTO 55
  10. 80 GOSUB 900
  11. 90 GOTO 70
  12. 900 DS$="":IF LD THEN PRINT"End of data encountered":SYSTEM
  13. 901 D$=INPUT$(1,2):LD = EOF(2):REM PRINT ASC(D$)
  14. 902 IF (D$=CHR$(10) OR D$=CHR$(0)) AND LD=0 THEN 901
  15. 905 IF D$=CHR$(13) OR D$=CHR$(7) OR D$="," OR LD THEN PRINT DS$;:RETURN
  16. 910 DS$=DS$+D$:GOTO 901
  17. 1000 D$=INPUT$(1,1):LT = EOF(1):IF D$=CHR$(10) AND LT=0 THEN 1000
  18. 1010 IF D$="^" OR LT THEN RETURN
  19. 1020 PRINT D$;: GOTO 1000
  20. 1100 PRINT CHR$(12);:RETURN
  21. ):IF D$=CHR$(10) AND LT=0 THEN 1000
  22. 1010 IF D$="^" OR LT THEN RETURN
  23. 1020 PRINT D$;: GOTO 1000
  24. 1100 PRINT CH